home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 071-080 / amok77 / rexx / request / request.oed < prev    next >
Text File  |  1993-11-04  |  2KB  |  129 lines
  1. /*------------------------------------------
  2.  
  3.   :Program.     Request.oed
  4.   :Author.      Albert Weinert [awn]
  5.   :Address.     Feldblumenweg 2, D-5000 Köln 71
  6.   :Version.     V1.0
  7.   :Date.        01-May-1992
  8.   :Copyright.   Freeware
  9.   :Language.    ARexx
  10.   :Translator.  ARexx 1.15
  11.   :Contents.    Erstellt aus dem FileInfo File welches UploadInfo von G.Glendown
  12.   :Contents.    eine Text mit den Requestfähigen Mails.
  13.   :Usage.       Vor die Nachricht die man Requesten will einfach ein "*" setzen
  14.   :Usage.       und dann dieses ARexx Script am besten direkt vom OEd aus starten
  15.   :Usage.       Abschliessend muss diese Nachricht noch gespeichert werden.
  16.   :Remark.      Benötigt den OEd V2.33d
  17.   :History.     V0.0   [awn] 01-May-1992 : Erstellt
  18.   :History.     V1.0   [awn] 01-May-1992 : Funktionsfähige Version
  19.  
  20. --------------------------------------------*/
  21.  
  22. options results
  23. address 'OEd'
  24.  
  25. bottom
  26. 'return'
  27. write ':LastLine:'
  28. top
  29. ret = SearchNext("*")
  30. ret = 0
  31. Do While ret = 0
  32.   CALL MakeRequest
  33.   ret = SearchNext("*");
  34. END
  35. bottom;
  36. ret = SearchPrev(":LastLine:");
  37. bbegin;
  38. top;
  39. bend;
  40. bdelete;
  41. EXIT
  42.  
  43. MakeRequest:PROCEDURE
  44.   CALL FSearchPrev("Brett ");
  45.   CALL FSearchNext("/");
  46.   bbegin;
  47.   CALL FSearchNext(":");
  48.   left;
  49.   bend;
  50.   ping 1;
  51.   bottom;
  52.   'return';
  53.   bcopy;
  54.   pong 1;
  55.   CALL FSearchNext("*");
  56.   last;
  57.   bbegin;
  58.   CALL GoToLeftSpace;
  59.   bend;
  60.   ping 1;
  61.   bottom;
  62.   last;
  63.   bcopy;
  64.   pong 1;
  65.   deline;
  66.   up;
  67. RETURN
  68.  
  69. SearchNext:PROCEDURE
  70. PARSE ARG find
  71.   CALL GetLastPos
  72.   'findstr' find
  73.   'next'
  74.   CALL IfSamePos
  75. RETURN result
  76.  
  77. SearchPrev:PROCEDURE
  78. PARSE ARG find
  79.   CALL GetLastPos
  80.   'findstr' find
  81.   'prev'
  82.   CALL IfSamePos
  83. RETURN result
  84.  
  85. FSearchPrev:PROCEDURE
  86. PARSE ARG find
  87.   'findstr' find
  88.   'prev'
  89. RETURN
  90.  
  91. FSearchNext:PROCEDURE
  92. PARSE ARG find
  93.   'findstr' find
  94.   'next'
  95. RETURN
  96.  
  97.  
  98. GetLastPos: PROCEDURE EXPOSE oXPos oYPos
  99.   'getposx' ; oXPos=result
  100.   'getposy' ; oYPos=result
  101. RETURN
  102.  
  103. GoLastPos: PROCEDURE
  104.   gotox oXPos
  105.   gotoy oYPos
  106. RETURN
  107.  
  108. GoToLeftSpace : PROCEDURE
  109.   Do ForEver
  110.     left
  111.     getasc
  112.     if result = 32 then do
  113.       return
  114.     end
  115.   end
  116. RETURN
  117.  
  118. IfSamePos: PROCEDURE EXPOSE oXPos oYPos
  119.   'getposx' ; XPos=result
  120.   'getposy' ; YPos=result
  121.   retu = 0
  122.   IF XPos = oXPos THEN DO
  123.     IF YPos = oYPos THEN DO
  124.       retu = 1
  125.     END
  126.   END
  127. RETURN retu
  128.  
  129.